home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / usenet / sources / volume90 / comm / vt10029b / part01 / 2.9a-2.9b.diffs
Text File  |  1990-04-14  |  24KB  |  831 lines
  1. Index: vt100.h
  2. Prereq: 1.4
  3. *** ../29A/vt100.h    Mon Mar 19 09:44:24 1990
  4. --- ./vt100.h    Mon Mar 19 09:44:35 1990
  5. ***************
  6. *** 1,3 ****
  7. ! #define HRCSID "$RCSfile: vt100.h,v $ $Revision: 1.4 $"
  8.   
  9.   /*********************************************************************
  10. --- 1,3 ----
  11. ! #define HRCSID "$RCSfile: vt100.h,v $ $Revision: 1.6 $"
  12.   
  13.   /*********************************************************************
  14. ***************
  15. *** 6,9 ****
  16. --- 6,16 ----
  17.    *
  18.    * $Log:    vt100.h,v $
  19. +  * Revision 1.6  90/03/13  21:34:10  acs
  20. +  * Update VERSION to 2.9B.
  21. +  * 
  22. +  * Revision 1.5  90/02/18  16:54:48  acs
  23. +  * 1) New script routines cmd_overscan() and cmd_close().
  24. +  * 2) New p_ variable: p_overscan.
  25. +  * 
  26.    * Revision 1.4  90/02/12  20:23:52  acs
  27.    * 1) Update date stamp in VERSION for the release of 2.9A.
  28. ***************
  29. *** 39,43 ****
  30.   
  31.   /********* major version (used for title of terminal window) *********/
  32. ! #define    VERSION    "VT100 (V2.9A ACS 900212) Terminal Window"
  33.   
  34.   /*********** ########  define the compiler type here ######## ********/
  35. --- 46,50 ----
  36.   
  37.   /********* major version (used for title of terminal window) *********/
  38. ! #define    VERSION    "VT100 (V2.9B ACS 900313) Terminal Window"
  39.   
  40.   /*********** ########  define the compiler type here ######## ********/
  41. ***************
  42. *** 276,280 ****
  43.   extern UBYTE    *BeepWave;
  44.   extern UBYTE    Audio_AllocMap[4];
  45. ! extern int    p_baud,p_screen,p_interlace,p_depth,p_buffer,p_wbcolors;
  46.   extern int    p_foreground,p_background,p_bold,p_cursor,p_lines,p_mode;
  47.   extern int    p_parity,p_volume,p_wrap,p_echo,p_keyapp,p_curapp,p_bs_del;
  48. --- 283,288 ----
  49.   extern UBYTE    *BeepWave;
  50.   extern UBYTE    Audio_AllocMap[4];
  51. ! extern int    p_baud,p_screen,p_overscan,p_interlace,p_depth,p_buffer;
  52. ! extern int    p_wbcolors;
  53.   extern int    p_foreground,p_background,p_bold,p_cursor,p_lines,p_mode;
  54.   extern int    p_parity,p_volume,p_wrap,p_echo,p_keyapp,p_curapp,p_bs_del;
  55. ***************
  56. *** 328,333 ****
  57.   extern int    cmd_bkg(), cmd_bold(), cmd_buf(), cmd_cursor(), cmd_depth(),
  58.           cmd_device(), cmd_display(), cmd_fore(), cmd_font(),
  59. !         cmd_fonts(), cmd_inter(), cmd_lines(), cmd_screen(),
  60. !         cmd_unit(), cmd_volume(), cmd_wb(), cmd_null(),
  61.   
  62.           /* script commands */
  63. --- 336,341 ----
  64.   extern int    cmd_bkg(), cmd_bold(), cmd_buf(), cmd_cursor(), cmd_depth(),
  65.           cmd_device(), cmd_display(), cmd_fore(), cmd_font(),
  66. !         cmd_fonts(), cmd_inter(), cmd_lines(), cmd_overscan(),
  67. !         cmd_screen(), cmd_unit(), cmd_volume(), cmd_wb(), cmd_null(),
  68.   
  69.           /* script commands */
  70. ***************
  71. *** 339,344 ****
  72.           /* init and script commands */
  73.           cmd_ac(), cmd_appcur(), cmd_baud(), cmd_bt(), cmd_conv(),
  74. !         cmd_echo(), cmd_exit(), cmd_ext(), cmd_fnc(), cmd_key(),
  75. !         cmd_kmode(), cmd_kmaxpk(), cmd_mode(), cmd_mouse(),
  76.           cmd_numkey(), cmd_parity(), cmd_strip(), cmd_share(),
  77.           cmd_short(), cmd_swap(), cmd_wrap(), cmd_xbeep(),
  78. --- 347,352 ----
  79.           /* init and script commands */
  80.           cmd_ac(), cmd_appcur(), cmd_baud(), cmd_bt(), cmd_conv(),
  81. !         cmd_close(), cmd_echo(), cmd_exit(), cmd_ext(), cmd_fnc(),
  82. !         cmd_key(), cmd_kmode(), cmd_kmaxpk(), cmd_mode(), cmd_mouse(),
  83.           cmd_numkey(), cmd_parity(), cmd_strip(), cmd_share(),
  84.           cmd_short(), cmd_swap(), cmd_wrap(), cmd_xbeep(),
  85. Index: ReleaseNotes
  86. *** ../29A/ReleaseNotes    Mon Mar 19 09:44:20 1990
  87. --- ./ReleaseNotes    Mon Mar 19 09:44:32 1990
  88. ***************
  89. *** 1,4 ****
  90. --- 1,38 ----
  91.   Release Notes:
  92.   --------------
  93. + v2.9B Hilights and fixes:
  94. +     - New command OVERSCAN which will allow the user to define, via the
  95. +       LINES command, how large the CUSTOM screen should be.  OVERSCAN OFF
  96. +       will constrain a custom screen to be the same size or smaller than
  97. +       the Workbench screen while OVERSCAN ON will allow the screen to be
  98. +       large enough to accomodate the specified number of lines.
  99. + 
  100. +       NOTE: If you are NOT using a custom screen you are still constrained
  101. +       to the size of the Workbench screen.  OVERSCAN won't help you in
  102. +       this situation.
  103. + 
  104. +     - New command CLOSE which closes the VT100 Info/Xfer status window.
  105. +       If CLOSE is executed you get no confirmation that a script or AREXX
  106. +       macro has completed.  The close flag is reset at the end of each
  107. +       script/AREXX macro.
  108. +     - Clean up returned values in script.c.
  109. +     - cleanup() code in vt100.c wouldn't always free ExtXfer array.
  110. +     - Include 2.9A hilights in this file (ReleaseNotes).
  111. + v2.9A Hilights and fixes:
  112. +     - New menu item STRIP to strip parity of inbound serial data destined
  113. +       for display.
  114. +     - Clean up menu-handling code.
  115. +     - "Classic" kermit routines weren't always freeing memory.
  116. +     - Saybye() in classic kermit didn't always work effectively disabling
  117. +       KERMIT Bye.
  118. +     - Beep after transfers which use an external protocol.
  119. +     - File transferrs wouldn't always prompt for filename.
  120. +     - Squashed a few more bugs where I'd hard-coded the size of the font.
  121. +     - While executing a script, don't poll the serial port unless the
  122. +       script is waiting or delaying.
  123. +     - req() in window.c would sometimes miss events.
  124. +     - Use LONG for byte count in xmodem transfers.
  125. +     - Revised menu handling.
  126. +     - Add RCS info.
  127.   v2.9 ?????? ACS - Many changes.  Highlights:
  128.       - Open information window at far right of main window.
  129. Index: init.c
  130. Prereq: 1.4
  131. *** ../29A/init.c    Mon Mar 19 09:44:21 1990
  132. --- ./init.c    Mon Mar 19 09:44:33 1990
  133. ***************
  134. *** 1,3 ****
  135. ! static char rcsid[] = "$RCSfile: init.c,v $ $Revision: 1.4 $";
  136.   
  137.   /***************************************************************
  138. --- 1,3 ----
  139. ! static char rcsid[] = "$RCSfile: init.c,v $ $Revision: 1.6 $";
  140.   
  141.   /***************************************************************
  142. ***************
  143. *** 6,9 ****
  144. --- 6,23 ----
  145.    *
  146.    * $Log:    init.c,v $
  147. +  * Revision 1.6  90/03/11  14:29:43  acs
  148. +  * 1) If user wants OVERSCAN and a CUSTOM SCREEN then *any* value for
  149. +  *    LINES is valid and we compute the  screen  size  based  on  the
  150. +  *    LINES  value.   Note  that  this  allows the user to specify an
  151. +  *    arbitrarily large (or small) screen.  This was the overwhelming
  152. +  *    response from USENET when I put it to a vote.  If  OVERSCAN  or
  153. +  *    SCREEN  wasn't  specified  then we still restrict the user to a
  154. +  *    screen size maximum of GfxBase->NormalDisplayRows.
  155. +  * 2) Compute  customfudge   earlier   so  it  can  be  used  in  the
  156. +  *    calculations used to implement 1, above.
  157. +  * 
  158. +  * Revision 1.5  90/02/18  17:07:03  acs
  159. +  * Honor OVERSCAN ON/OFF setting.
  160. +  * 
  161.    * Revision 1.4  89/12/12  22:13:56  acs
  162.    * 1) Strip excess blanks from the rest of the menu items.
  163. ***************
  164. *** 367,373 ****
  165.       /* Now set up all the screen info as necessary */
  166.   
  167. !     maxrows = GfxBase->NormalDisplayRows;
  168. ! 
  169. !     /*   If user wants to use the current interlace setting then set p_interlace
  170.       ** according to what the ViewLord says it is. */
  171.       if(p_interlace == 2)
  172. --- 381,385 ----
  173.       /* Now set up all the screen info as necessary */
  174.   
  175. !     /* If user wants to use the current interlace setting then set p_interlace
  176.       ** according to what the ViewLord says it is. */
  177.       if(p_interlace == 2)
  178. ***************
  179. *** 376,383 ****
  180.       p_interlace = 0;
  181.   
  182. !     if(p_interlace)
  183. !     maxrows *= 2;
  184.   
  185. !     customfudge = (p_screen == 1) ? 4 : 0;
  186.   
  187.       /*   See if user wants to use everything available (specified LINES 0).If
  188. --- 388,400 ----
  189.       p_interlace = 0;
  190.   
  191. !     customfudge = p_screen ? 4 : 0;
  192.   
  193. !     if(p_overscan && p_screen && p_lines)
  194. !     maxrows = (p_lines * Ysize) + customfudge + Ysize + 2;
  195. !     else {
  196. !     maxrows = GfxBase->NormalDisplayRows;
  197. !     if(p_interlace)
  198. !         maxrows *= 2;
  199. !     }
  200.   
  201.       /*   See if user wants to use everything available (specified LINES 0).If
  202. Index: rexx.c
  203. Prereq: 1.2
  204. *** ../29A/rexx.c    Mon Mar 19 09:44:22 1990
  205. --- ./rexx.c    Mon Mar 19 09:44:34 1990
  206. ***************
  207. *** 1,3 ****
  208. ! static char rcsid[] = "$RCSfile: rexx.c,v $ $Revision: 1.2 $";
  209.   
  210.   /*************************************************************
  211. --- 1,3 ----
  212. ! static char rcsid[] = "$RCSfile: rexx.c,v $ $Revision: 1.3 $";
  213.   
  214.   /*************************************************************
  215. ***************
  216. *** 6,9 ****
  217. --- 6,12 ----
  218.    *
  219.    * $Log:    rexx.c,v $
  220. +  * Revision 1.3  90/02/18  17:03:45  acs
  221. +  * Don't write termination msg if CLOSE has been executed.
  222. +  * 
  223.    * Revision 1.2  89/12/19  20:38:59  acs
  224.    * Added RCS id and change log.
  225. ***************
  226. *** 23,26 ****
  227. --- 26,31 ----
  228.   extern char *extension;            /* in vt100.c        */
  229.   
  230. + extern int closed_info;            /* in script.c        */
  231. + 
  232.   #define AREXXCOMMAND 2
  233.   /*   Derived from:
  234. ***************
  235. *** 124,130 ****
  236.   
  237.       if(arg1 == (char *)AREXXCOMMAND) {
  238. !         if(RexxReplies == 0 && command) {
  239.           LONG memlen = strlen(MacDone) + strlen(command) + 1;
  240.   
  241.           if(message = AllocMem(memlen, MEMF_PUBLIC | MEMF_CLEAR)) {
  242.               strcpy(message, MacDone);
  243. --- 129,136 ----
  244.   
  245.       if(arg1 == (char *)AREXXCOMMAND) {
  246. !         if(RexxReplies == 0 && command && !closed_info) {
  247.           LONG memlen = strlen(MacDone) + strlen(command) + 1;
  248.   
  249. +         closed_info = 0;
  250.           if(message = AllocMem(memlen, MEMF_PUBLIC | MEMF_CLEAR)) {
  251.               strcpy(message, MacDone);
  252. Index: script.c
  253. Prereq: 1.5
  254. *** ../29A/script.c    Mon Mar 19 09:44:23 1990
  255. --- ./script.c    Mon Mar 19 09:44:34 1990
  256. ***************
  257. *** 1,3 ****
  258. ! static char rcsid[] = "$RCSfile: script.c,v $ $Revision: 1.5 $";
  259.   
  260.   /*************************************************************
  261. --- 1,3 ----
  262. ! static char rcsid[] = "$RCSfile: script.c,v $ $Revision: 1.7 $";
  263.   
  264.   /*************************************************************
  265. ***************
  266. *** 6,9 ****
  267. --- 6,20 ----
  268.    *
  269.    * $Log:    script.c,v $
  270. +  * Revision 1.7  90/02/22  20:58:45  acs
  271. +  * 1) Remove unneeded parens from return statements.
  272. +  * 2) Return CMDOK instead of 0 from routines whose rc counts.
  273. +  * 3) New routines cmd_overscan() and cmd_close() need to return a value
  274. +  *    (CMDOK).
  275. +  * 
  276. +  * Revision 1.6  90/02/18  16:57:10  acs
  277. +  * 1) Support new cmds OVERSCAN and CLOSE with cmd_overscan() and
  278. +  *    cmd_close().
  279. +  * 2) Move setvar() closer to the beginning of the file.
  280. +  * 
  281.    * Revision 1.5  89/12/14  20:32:10  acs
  282.    * Wasn't beeping after a transfer using external protocols.
  283. ***************
  284. *** 73,76 ****
  285. --- 84,88 ----
  286.   
  287.   extern long atol();
  288. + extern void KillReq();            /* In window.c    */
  289.   
  290.   #if MANX
  291. ***************
  292. *** 100,103 ****
  293. --- 112,116 ----
  294.   char        golabel[20];         /* label we are looking for in goto */
  295.   char        on_cmd[20];         /* command to execute when on matchs*/
  296. + int        closed_info = 0;     /* info window was closed         */
  297.   int        onsize;             /* size of on_string         */
  298.   int        waitsize;         /* size of wait_string         */
  299. ***************
  300. *** 126,129 ****
  301. --- 139,143 ----
  302.   cmd_cap,    "capture",    3, SCRIPT,    /* ascii capture on/off        */
  303.   cmd_cd,        "cd",        2, SCRIPT,    /* change directory        */
  304. + cmd_close,    "close",    2, INIT|SCRIPT,    /* close the info window    */
  305.   cmd_conv,    "convert",    4, INIT|SCRIPT,    /* convert fn to lowercase    */
  306.   cmd_cursor,    "cursor",    3, INIT,    /* set cursor color        */
  307. ***************
  308. *** 156,159 ****
  309. --- 170,174 ----
  310.   cmd_numkey,    "numkey",    6, INIT|SCRIPT,    /* turn numeric kpad on/off    */
  311.   cmd_on,        "on",        2, SCRIPT,    /* on a 'string' do a cmd    */
  312. + cmd_overscan,    "overscan",    2, INIT,    /* Overscan OK on custom screen    */
  313.   cmd_parity,    "parity",    6, INIT|SCRIPT,    /* Set Parity            */
  314.   cmd_recf,    "recfile",    4, SCRIPT,    /* receive a file from host    */
  315. ***************
  316. *** 425,429 ****
  317.           } else
  318.               InfoMsg2Line("Script:", errmsg);
  319. !         return(cmdrc);
  320.       }
  321.       }
  322. --- 440,444 ----
  323.           } else
  324.               InfoMsg2Line("Script:", errmsg);
  325. !         return cmdrc;
  326.       }
  327.       }
  328. ***************
  329. *** 433,437 ****
  330.       cmdrc = cmd_rx(p);
  331.       implied_rexx = 0;
  332. !     return(cmdrc);
  333.       }
  334.   #endif /* AREXX */
  335. --- 448,452 ----
  336.       cmdrc = cmd_rx(p);
  337.       implied_rexx = 0;
  338. !     return cmdrc;
  339.       }
  340.   #endif /* AREXX */
  341. ***************
  342. *** 453,460 ****
  343.       label = lbase;
  344.       while(label != NULL) {
  345. !     if (strcmp(label->name, lname) == 0) return (label);
  346.       label = label->next;
  347.       }
  348. !     return(NULL);
  349.   }
  350.   
  351. --- 468,476 ----
  352.       label = lbase;
  353.       while(label != NULL) {
  354. !     if (strcmp(label->name, lname) == 0)
  355. !         return label;
  356.       label = label->next;
  357.       }
  358. !     return NULL;
  359.   }
  360.   
  361. ***************
  362. *** 482,486 ****
  363.       }
  364.       exe_cmd(p,l);
  365. !     return(0);
  366.       }
  367.       script_wait = FALSE;
  368. --- 498,502 ----
  369.       }
  370.       exe_cmd(p,l);
  371. !     return CMDOK;
  372.       }
  373.       script_wait = FALSE;
  374. ***************
  375. *** 487,491 ****
  376.   
  377.       if(CmdFromRexx)
  378. !     return 0;
  379.   
  380.       while(fgets(line,256,sf) != NULL) {
  381. --- 503,507 ----
  382.   
  383.       if(CmdFromRexx)
  384. !     return CMDOK;
  385.   
  386.       while(fgets(line,256,sf) != NULL) {
  387. ***************
  388. *** 518,522 ****
  389.       if (*p)
  390.           exe_cmd(p,l);
  391. !     return(0);
  392.       }            /* end of while */
  393.       if (stat == GOTOLABEL)
  394. --- 534,538 ----
  395.       if (*p)
  396.           exe_cmd(p,l);
  397. !     return CMDOK;
  398.       }            /* end of while */
  399.       if (stat == GOTOLABEL)
  400. ***************
  401. *** 537,541 ****
  402.       WaitIO((struct IORequest *)&Script_Timer); /* Get my reply back */
  403.       }
  404. !     InfoMsg1Line("Script: terminated");
  405.       script_on = FALSE;
  406.       script_wait = TRUE;
  407. --- 553,560 ----
  408.       WaitIO((struct IORequest *)&Script_Timer); /* Get my reply back */
  409.       }
  410. !     if(!closed_info) {
  411. !     InfoMsg1Line("Script: terminated");
  412. !     closed_info = 0;
  413. !     }
  414.       script_on = FALSE;
  415.       script_wait = TRUE;
  416. ***************
  417. *** 548,552 ****
  418.       if (reqwinup && ((reqwindow->Flags) & WINDOWACTIVE))
  419.       ActivateWindow(mywindow);
  420. !     return 0;
  421.   }
  422.   
  423. --- 567,571 ----
  424.       if (reqwinup && ((reqwindow->Flags) & WINDOWACTIVE))
  425.       ActivateWindow(mywindow);
  426. !     return CMDOK;
  427.   }
  428.   
  429. ***************
  430. *** 593,597 ****
  431.       }
  432.       *s1 = '\0';
  433. !     return(ptr);
  434.       }
  435.       if (*s1 == '^') {
  436. --- 612,616 ----
  437.       }
  438.       *s1 = '\0';
  439. !     return ptr;
  440.       }
  441.       if (*s1 == '^') {
  442. ***************
  443. *** 598,605 ****
  444.       *s1 = (*(s1+1)|' ')-96;
  445.       *(s1+1) = '\0';
  446. !     return(s1);
  447.       }
  448.       *(s1+1) = '\0';
  449. !     return(s1);
  450.   }
  451.   
  452. --- 617,624 ----
  453.       *s1 = (*(s1+1)|' ')-96;
  454.       *(s1+1) = '\0';
  455. !     return s1;
  456.       }
  457.       *(s1+1) = '\0';
  458. !     return s1;
  459.   }
  460.   
  461. ***************
  462. *** 619,623 ****
  463.       fseek(sf,(long)(label->pos),0);
  464.       }
  465. !     return 0;
  466.   }
  467.   
  468. --- 638,642 ----
  469.       fseek(sf,(long)(label->pos),0);
  470.       }
  471. !     return CMDOK;
  472.   }
  473.   
  474. ***************
  475. *** 635,639 ****
  476.       else
  477.       sendstring(p);
  478. !     return 0;
  479.   }
  480.   
  481. --- 654,658 ----
  482.       else
  483.       sendstring(p);
  484. !     return CMDOK;
  485.   }
  486.   
  487. ***************
  488. *** 648,652 ****
  489.       waitsize = strlen(wait_string);
  490.       script_wait = WAIT_STRING;
  491. !     return 0;
  492.   }
  493.   
  494. --- 667,671 ----
  495.       waitsize = strlen(wait_string);
  496.       script_wait = WAIT_STRING;
  497. !     return CMDOK;
  498.   }
  499.   
  500. ***************
  501. *** 671,677 ****
  502.       on_cmd[oncmdsize] = '\0';
  503.       }
  504. !     return 0;
  505.   }
  506.   
  507.   cmd_delay(seconds)
  508.   char *seconds;
  509. --- 690,727 ----
  510.       on_cmd[oncmdsize] = '\0';
  511.       }
  512. !     return CMDOK;
  513.   }
  514.   
  515. + void setvar(par,typ,var)
  516. + char    *par;
  517. + int    typ,*var;
  518. + {
  519. +     int i;
  520. + 
  521. +     switch (typ) {
  522. +     case 0: /* ON/OFF or YES/NO */
  523. +     case 1: /* not case */
  524. +     if ((par[1]|' ') == 'n' || (par[0]|' ') == 'y') *var = 1-typ;
  525. +     else                        *var = typ;
  526. +     break;
  527. + 
  528. +     case 2: /* read hex number */
  529. +     if (sscanf(par,"%x",&i) == 1) *var = i;
  530. + 
  531. +     break;
  532. + 
  533. +     case 3: /* read decimal number */
  534. +     if (sscanf(par,"%d",&i) == 1) *var = i;
  535. +     break;
  536. +     }
  537. + }
  538. + 
  539. + cmd_overscan(par)
  540. + char *par;
  541. + {
  542. +     setvar(par, 0, &p_overscan);
  543. +     return CMDOK;
  544. + }
  545. + 
  546.   cmd_delay(seconds)
  547.   char *seconds;
  548. ***************
  549. *** 681,685 ****
  550.       Script_Timer.tr_time.tv_micro = 0;
  551.       SendIO((struct IORequest *)&Script_Timer.tr_node);
  552. !     return 0;
  553.   }
  554.   
  555. --- 731,735 ----
  556.       Script_Timer.tr_time.tv_micro = 0;
  557.       SendIO((struct IORequest *)&Script_Timer.tr_node);
  558. !     return CMDOK;
  559.   }
  560.   
  561. ***************
  562. *** 691,695 ****
  563.   
  564.       if (doing_init)
  565. !     return 0;
  566.   
  567.       if (*option) {
  568. --- 741,745 ----
  569.   
  570.       if (doing_init)
  571. !     return CMDOK;
  572.   
  573.       if (*option) {
  574. ***************
  575. *** 708,712 ****
  576.       }
  577.       }
  578. !     return 0;
  579.   }
  580.   
  581. --- 758,762 ----
  582.       }
  583.       }
  584. !     return CMDOK;
  585.   }
  586.   
  587. ***************
  588. *** 994,997 ****
  589. --- 1044,1055 ----
  590.   }
  591.   
  592. + cmd_close(name)
  593. + char *name;
  594. + {
  595. +     KillReq();
  596. +     closed_info = 1;
  597. +     return CMDOK;
  598. + }
  599. + 
  600.   cmd_sb(str)
  601.   char *str;
  602. ***************
  603. *** 1157,1184 ****
  604.       }
  605.       return CMDOK;
  606. - }
  607. - 
  608. - void setvar(par,typ,var)
  609. - char    *par;
  610. - int    typ,*var;
  611. - {
  612. -     int i;
  613. - 
  614. -     switch (typ) {
  615. -     case 0: /* ON/OFF or YES/NO */
  616. -     case 1: /* not case */
  617. -     if ((par[1]|' ') == 'n' || (par[0]|' ') == 'y') *var = 1-typ;
  618. -     else                        *var = typ;
  619. -     break;
  620. - 
  621. -     case 2: /* read hex number */
  622. -     if (sscanf(par,"%x",&i) == 1) *var = i;
  623. - 
  624. -     break;
  625. - 
  626. -     case 3: /* read decimal number */
  627. -     if (sscanf(par,"%d",&i) == 1) *var = i;
  628. -     break;
  629. -     }
  630.   }
  631.   
  632. --- 1215,1218 ----
  633. Index: vt100.c
  634. Prereq: 1.8
  635. *** ../29A/vt100.c    Mon Mar 19 09:44:23 1990
  636. --- ./vt100.c    Mon Mar 19 09:44:34 1990
  637. ***************
  638. *** 1,3 ****
  639. ! static char rcsid[] = "$RCSfile: vt100.c,v $ $Revision: 1.8 $";
  640.   static char hrcsid[] = HRCSID;
  641.   
  642. --- 1,3 ----
  643. ! static char rcsid[] = "$RCSfile: vt100.c,v $ $Revision: 1.9 $";
  644.   static char hrcsid[] = HRCSID;
  645.   
  646. ***************
  647. *** 7,10 ****
  648. --- 7,14 ----
  649.    *
  650.    * $Log:    vt100.c,v $
  651. +  * Revision 1.9  90/02/18  17:05:32  acs
  652. +  * 1) New parameter p_overscan.  Reflects OVERSCAN ON/OFF.
  653. +  * 2) Freeing of ExtXfer[] should always happen.
  654. +  * 
  655.    * Revision 1.8  90/02/12  20:25:05  acs
  656.    * Include reference to HRCSID defined in vt100.h.
  657. ***************
  658. *** 279,282 ****
  659. --- 283,287 ----
  660.   int    p_shared    = 1;    /* Open serial device in shared mode    */
  661.   int    p_screen    = 0;    /* 0 = WORKBENCH, 1 = CUSTOM        */
  662. + int    p_overscan    = 0;    /* 0 = no overscan, 1 = overscan OK    */
  663.   int    p_wbcolors    = 1;    /* 0 = Custom, 1 = Workbench colors    */
  664.   int    p_interlace    = 2;    /* 0 = no interlace, 1 = interlace, 2 = ASIS */
  665. ***************
  666. *** 712,725 ****
  667.           CloseScreen( myscreen );
  668.       }
  669. -     for(i = 0; i < NumExts; i++) {
  670. -         struct ExternalXfer *xfer = ExtXfer[i];
  671. - 
  672. -         FreeMem(xfer->dispname, (long)(strlen(xfer->dispname)+1));
  673. -         FreeMem(xfer->downname, (long)(strlen(xfer->downname)+1));
  674. -         FreeMem(xfer->send, (long)(strlen(xfer->send)+1));
  675. -         FreeMem(xfer->receive, (long)(strlen(xfer->receive)+1));
  676. -         FreeMem(xfer, (long)sizeof(struct ExternalXfer));
  677. -     }        
  678. - 
  679.       case 3:        /* error opening screen */
  680.       case 2:        /* error opening graphics library */
  681. --- 717,720 ----
  682. ***************
  683. *** 732,736 ****
  684.           CloseLibrary((struct Library *)IntuitionBase);
  685.       default:
  686. !     if (*reason) puts (reason);
  687.       }
  688.   
  689. --- 727,742 ----
  690.           CloseLibrary((struct Library *)IntuitionBase);
  691.       default:
  692. !     for(i = 0; i < NumExts; i++) {
  693. !         struct ExternalXfer *xfer = ExtXfer[i];
  694. ! 
  695. !         FreeMem(xfer->dispname, (long)(strlen(xfer->dispname)+1));
  696. !         FreeMem(xfer->downname, (long)(strlen(xfer->downname)+1));
  697. !         FreeMem(xfer->send, (long)(strlen(xfer->send)+1));
  698. !         FreeMem(xfer->receive, (long)(strlen(xfer->receive)+1));
  699. !         FreeMem(xfer, (long)sizeof(struct ExternalXfer));
  700. !     }        
  701. ! 
  702. !     if (*reason)
  703. !         printf("VT100: %s\n", reason);
  704.       }
  705.   
  706. Index: vt100.doc
  707. *** ../29A/vt100.doc    Mon Mar 19 09:44:23 1990
  708. --- ./vt100.doc    Mon Mar 19 09:44:35 1990
  709. ***************
  710. *** 302,305 ****
  711. --- 302,314 ----
  712.       CD    DF1:foo/bar    set the directory as specified
  713.   --------------------------------------------------------------------------
  714. + CLOSE    Close info window                (INIT,SCRIPT)
  715. +     Format:
  716. +     CLOSE            Note there are no parameters
  717. +     Example:
  718. +     CLOSE            This command can be execute from either a
  719. +                 VT100 or an AREXX script.  If this command
  720. +                 is executed then there will be no message
  721. +                 confirming the script's completion.
  722. + --------------------------------------------------------------------------
  723.   CONVERT    Tell KERMIT whether or not to convert filenames    (INIT,SCRIPT)
  724.       Format:
  725. ***************
  726. *** 440,443 ****
  727. --- 449,454 ----
  728.       INTERLACE ON        Use interlacing
  729.       INTERLACE ASIS        Use interlace if WBSCREEN uses it
  730. + 
  731. +                 See also OVERSCAN, LINES and SCREEN.
  732.   --------------------------------------------------------------------------
  733.   KB    Send a BYE packet to a host KERMIT server.    (SCRIPT)
  734. ***************
  735. *** 481,488 ****
  736.       LINES n
  737.       Example:
  738. !     LINES 24        Maximum for non-interlace
  739. !     LINES 48        Maximum for interlaced
  740.       LINES 0            Determine the maximum number of lines
  741. !                 available and use it
  742.   --------------------------------------------------------------------------
  743.   MODE    Set a transfer mode for KERMIT to use        (INIT,SCRIPT)
  744. --- 492,504 ----
  745.       LINES n
  746.       Example:
  747. !     LINES 24        Maximum for non-interlace if OVERSCAN is OFF
  748. !     LINES 48        Maximum for interlaced if OVERSCAN is OFF
  749.       LINES 0            Determine the maximum number of lines
  750. !                 available and use it.  Note that this will
  751. !                 constrain the window and screen to be the
  752. !                 same size as or smaller than the Workbench
  753. !                 screen.
  754. ! 
  755. !                 See also: OVERSCAN, SCREEN, INTERLACE
  756.   --------------------------------------------------------------------------
  757.   MODE    Set a transfer mode for KERMIT to use        (INIT,SCRIPT)
  758. ***************
  759. *** 551,554 ****
  760. --- 567,586 ----
  761.                   Send a space every time --more-- is received
  762.   --------------------------------------------------------------------------
  763. + OVERSCAN    Allow overscan on custom screens    (INIT)
  764. +     Format:
  765. +     OVERSCAN ON/OFF or YES/NO
  766. +     Example:
  767. +     OVERSCAN ON        Normally, VT100 constrains the maximum
  768. +                 screen size to be the same as Workbench.
  769. +                 This command instructs VT100 to ignore the
  770. +                 Workbench size and compute the screen size
  771. +                 based on the value specified in the LINES
  772. +                 command.  If LINES is set to 0 then VT100
  773. +                 constrains the screen and window to the
  774. +                 Workbench screen/window size irrespective
  775. +                 of the OVERSCAN setting.
  776. + 
  777. +                 See also LINES, SCREEN and INTERLACE.
  778. + --------------------------------------------------------------------------
  779.   PARITY    Sets the parity                    (INIT,SCRIPT)
  780.       Format:
  781. ***************
  782. *** 618,621 ****
  783. --- 650,655 ----
  784.       SCREEN WORKBENCH    use the workbench screen
  785.       SCREEN CUSTOM        use a custom screen
  786. + 
  787. +                 See also OVERSCAN, LINES and INTERLACE.
  788.   --------------------------------------------------------------------------
  789.   SEND    Sends a string or character to the host.    (SCRIPT)
  790. Index: window.c
  791. Prereq: 1.5
  792. *** ../29A/window.c    Mon Mar 19 09:44:24 1990
  793. --- ./window.c    Mon Mar 19 09:44:35 1990
  794. ***************
  795. *** 1,3 ****
  796. ! static char rcsid[] = "$RCSfile: window.c,v $ $Revision: 1.5 $";
  797.   
  798.   /****************************************************
  799. --- 1,3 ----
  800. ! static char rcsid[] = "$RCSfile: window.c,v $ $Revision: 1.6 $";
  801.   
  802.   /****************************************************
  803. ***************
  804. *** 6,9 ****
  805. --- 6,12 ----
  806.    *
  807.    * $Log:    window.c,v $
  808. +  * Revision 1.6  90/02/22  20:56:31  acs
  809. +  * When we write to the Info window we must clear the Info closed flag.
  810. +  * 
  811.    * Revision 1.5  90/01/23  20:17:11  acs
  812.    * 1) Machine would lock up due to req() "missing" some events.  Thanks
  813. ***************
  814. *** 43,46 ****
  815. --- 46,51 ----
  816.   #include "vt100.h"
  817.   
  818. + extern int closed_info;        /* in script.c */
  819. + 
  820.   static char *infkey[] = {    /* F-keys resulting from RawKeyConvert() */
  821.       "0~",  "1~",  "2~",  "3~",  "4~",  "5~",  "6~",  "7~",  "8~",  "9~",
  822. ***************
  823. *** 676,679 ****
  824. --- 681,686 ----
  825.       Move(reqwindow->RPort, (LONG)reqminx, (LONG)(reqy+BaseLine));
  826.       Text(reqwindow->RPort, msg, msglen);
  827. + 
  828. +     closed_info = 0;    /* Info window not closed anymore */
  829.   }
  830.   
  831.